home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Dir / dir.lock < prev    next >
Text File  |  1997-01-15  |  2KB  |  68 lines
  1. G4C
  2.  
  3. ; This is a LOCK for your amiga.
  4.  
  5. ; All it does is to put up a full screen borderless window, which will
  6. ; not close untill you give the correct pass code.
  7.  
  8.  
  9. WINBIG    0 0 0 0 ""        ; a window at 0,0, screen wide & high
  10. WinType 000010              ; borderless window, with no gadgets
  11. WinBackground SOLID 3 0     
  12.  
  13. CTEXT 200 220 "Authorised Personel Only" times.font 24 2 3 000
  14.  
  15. xONLOAD
  16. setscreen dir.lock $lv_fmscreen
  17. lk_var  = ""                ; We clear the code variable
  18. lk_flag = 0
  19. GuiOpen dir.lock            ; and open the gui upon loading.
  20.  
  21. xOnOpen
  22. setgad dir.lock 1 ON
  23.  
  24. xONQUIT
  25. delvar lk_#?                ; On quitting we delete the variables
  26.  
  27. ; We declare the following xONKEY events, so that we disable the standard
  28. ; window shortcuts (with which the lock could be bypassed).
  29.  
  30. xONKEY #3       ; Control C  - Close window
  31. xONKEY #2       ; Control B  - Window to back
  32. xONKEY #5       ; Control E  - Edit window
  33. xONKEY #10      ; Control J  - Jump screen
  34. xONKEY #18      ; Control R  - Reload
  35. xONKEY #14      ; Control N  - Next Window
  36. xONKEY #17      ; Control Q  - Quit Window
  37. xONKEY #23      ; Control W  - Window size adjustment
  38. xONKEY #26      ; Control Z  - Zoom Window
  39. xONKEY #19      ; Control S  - Status
  40.  
  41. xONInactive
  42. guiwindow dir.lock FRONT
  43. guiscreen dir.lock FRONT
  44.  
  45. Text       200 60 240 14 "Input pass code wanted:" 100 NOBOX
  46. gadid 2
  47.  
  48. xTextIn    200 75 240 18 "" lk_var "" 100
  49. gadid 1
  50. if $lk_flag = 0                     ; First time - get pass code
  51.    lk_flag = 1
  52.    lk_code = $lk_var
  53.    update dir.lock 2 "Input correct pass code:" 
  54.    update dir.lock 1 ""
  55.    setgad dir.lock 1 ON
  56. else
  57.    if $lk_var = $lk_code            ; quit if correct.
  58.       GUIQUIT dir.lock
  59.    else
  60.       update dir.lock 2 "Wrong Code !!"
  61.       lk_var = ""                   ; Clear the variable for an other try.
  62.       update dir.lock 1 ""
  63.       setgad dir.lock 1 ON
  64.    endif
  65. endif
  66.  
  67.  
  68.